Hallo Detlev,


das hatte ich auch schon probiert. Half aber auch nichts. Ich hab jetzt eine Lösung gefunden. Ich setzte einfach die Values in eine 
Variable und rechne mit den Variablen und nehme dann weitere variablen um das ergebniss wieder zugeben. hier meine Lösung.#


aber trotzdem danke für deine schnelle Antwort.








Sub abgleich()              ' hier wird nach Fehleingaben in der UserForm1 gesucht.
UserForm1.Hide

Set swApp = _
Application.SldWorks


Set Part = swApp.ActiveDoc
                            
If UserForm1.Opt_kafig.Value = True Then
    X = 2
    Part.Parameter("D35@Grundskizze").SystemValue = X / 1000
    
        ElseIf UserForm1.Opt_distanzstck.Value = True Then
            X = 1
            Part.Parameter("D35@Grundskizze").SystemValue = X / 1000
End If
a1 = UserForm1.durchmesser_bohrungsteilkreis.Value
a2 = UserForm1.gewinde_durchmesser
a3 = UserForm1.durchmesser_dm.Value
a4 = UserForm1.Modul.Value
a5 = UserForm1.durchmesser_DL.Value
a6 = UserForm1.durchmesser_dichtung.Value
a7 = UserForm1.durchmesser_passung.Value
b1 = a1 - a2 - 2
b2 = a1 + a2 + 2
b3 = a5 + 2 * X + 0.5
b4 = a3 - a4 * 2

If b3 > a7 Then
MsgBox ("Bitte vergrößern Sie den Passungs-ø, oder verkleinern Sie den DL")     'es gibt zu jeder Fehleingabe die entsprechende Meldung wieder.
UserForm1.Show
        ElseIf a7 > b1 Then
        MsgBox ("Bitte vergrößern Sie den Bohrungsteilkreis-ø, oder verkleinern Sie den Passungs-ø")
        UserForm1.Show
            ElseIf b2 > a6 Then
            MsgBox ("Bitte vergrößern Sie den Dichtungsanlage-ø, oder verkleinern Sie den Bohrungsteilkreis-ø")
            UserForm1.Show
                ElseIf a6 > b4 Then
                MsgBox ("Bitte vergrößern Sie den dm, oder verkleinern Sie den Dichtungsanlage-ø")
                UserForm1.Show
Else
Call user1

End If

End Sub